﻿Public Class TMyAttribute
    Private _ExtraName As String
    Public Sub New(ByVal AExtraName As String)
        _ExtraName = AExtraName
    End Sub
    Public ReadOnly Property ExtraName() As String
        Get
            Return _ExtraName
        End Get
    End Property
End Class
